home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_05_(08-1984).d64 / bomb threat adve (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  105 lines
  1. 1 PRINT"[147]BOMB THREAT[145]TM":PRINT"COPYRIGHT1982 BRUCE ROBINSON.":GOTO8900
  2. 3 PRINT"NOTHING HAPPENED.":GOTO7
  3. 4 INPUTR$:R$=LEFT$(R$,2):RETURN
  4. 6 PRINT"I CAN'T DO THAT.
  5. 7 [137]299
  6. 8 [153]"OK.":[137]7
  7. 9 R$[178]"LOOK":[153]"TELL ME WHAT TO DO":[133]R$:[153]"LOAD"R$"":V$[178][200](R$,2)
  8. 20 R$[178]R$[170]"  "
  9. 110 V[178]H:[129]Q[178]2[164]23[169]2:[139]V$[178][202](" SILOGEDREMSTPUGOINCLTU",Q,2)[167]V[178]Q[173]2:Q[178]H
  10. 125 [130]:N$[178]"":[129]Q[178][195](R$)[171]2[164]1[169][171]1:[139][202](R$,Q,1)[178]" "[167]N$[178][202](R$,Q[170]1,2):Q[178].
  11. 130 [130]:N[178].:[129]Q[178]2[164]65[169]2:[139]N$[178][202](B$,Q,2)[167]N[178]Q[173]2:Q[178]H
  12. 140 [130]:[139][194](657)[178]0[167][162]:
  13. 145 [139]N$[178]"HO"[167]N[178]11
  14. 150 T[178]T[170].5:[139]T[177][178]60[167][153]"TOO LATE, BOMB WENT OFF!":[128]
  15. 180 [145]V[137]200,300,400,500,600,700,800,1000,1100,1200,1300:[153]"HUH?":[137]7
  16. 200 [153]"WITH WHAT";:[141]4:[139]R$[179][177]"AI"[175]R$[179][177]"HO"[167][153]"THAT WON'T WORK!":[137]7
  17. 205 [139]L%(11)[171]H[167]N[178]11:[137]500
  18. 210 [153]"FROM WHAT";:[141]4:V$[178]R$:[153]"TO WHAT";:[141]4:[139]L[171]4[176]N[171]9[176]V$[179][177]"JE"[167]3
  19. 220 [139]R$[178]"AQ"[167][153]"GAS DISSOLVED SEAMS.":[137]7
  20. 230 [139]R$[179][177]"CA"[167]3
  21. 240 [139]U[167]G[178]1:[137]8
  22. 250 [153]"I CAN'T GET THE GAS TO FLOW.
  23. 299 N=.
  24. 300 X=N:IFN<8THENX=L:PRINT"I AM IN "D$(L)
  25. 302 IFN-22THEN320
  26. 305 PRINT"3:";:IFT<10THENPRINT"0";
  27. 310 PRINTMID$(STR$(INT(T)),2):GOTO9
  28. 320 J=1:PRINT"I SEE:"
  29. 325 FORQ=5TO32:IFABS(L%(Q))=XTHENPRINT"   "D$(Q):J=.
  30. 330 NEXT:IFM=196ANDL%(32)=0THENJ=0:PRINT"   AXLE
  31. 332 [139]J[167][153]"NOTHING";:[139]N[177]7[167][153]" SPECIAL";
  32. 335 [139]L[178]7[175]N[178]19[175]F[167][153]"   WATER FLOWING DOWN INTO DRAIN.
  33. 340 PRINT:IFL>6ORN>7THEN9
  34. 350 PRINT"I CAN GO:":IFL<4THENPRINT"WEST":IFL<3THENPRINT"EAST":IFL=2THENPRINT"NORTH
  35. 360 [139]L[178]4[167][153]"SOUTH
  36. 370 IFL>4THENPRINT"OUT
  37. 380 [139]L[178]1[167][153]"I AM"M[173]10"MILES":[153]"FROM TOWN.
  38. 399 GOTO9
  39. 400 Q=L%(N):IFQ=99THENPRINT"ALREADY HAVE IT!":GOTO7
  40. 405 J=L%(ABS(Q)):IFQ=LORJ=LORJ=HTHEN450
  41. 410 IFM=196ANDL%(32)=0ANDN=32THENL%(32)=H:GOTO8
  42. 420 J=L%(ABS(J)):IFJ=LORJ=HTHEN450
  43. 449 GOTO6
  44. 450 L%(N)=H:IFN=29ANDL%(30)=0THENL%(30)=6:PRINT"AHA, A KEY!
  45. 499 [137]7
  46. 500 [139]L%(N)[171]H[167][153]"I DON'T HAVE IT!":[137]7
  47. 510 L%(N)[178]L:[137]7
  48. 600 [139]N[171]10[167]3
  49. 605 [139](L[178]L%(N)[176]L%(N)[178]H)[178]0[167]6
  50. 610 [129]Q[178]11[164]15:[139]L%(Q)[178]N[167]L%(Q)[178]L
  51. 640 [130]:[137]7
  52. 700 [139]L[179]5[176]L[171]N[176]L[178]7[167]6
  53. 710 [139]L[178]5[167]8
  54. 715 [139]L%(30)[171]31[167][153]"NO KEY IN "D$(31):[137]7
  55. 720 [139]G[178]0[167]730
  56. 725 [153]"STARTED CAR, DROVE TO TOWN, AND WARNED  THE  BOMB SQUAD IN TIME!":[128]
  57. 730 [153]"NO GAS IN CAR!":[137]7
  58. 800 [139]L%(N)[171]H[167]500
  59. 805 [153]"WHERE";:[141]4
  60. 810 [139]N[178]13[175]L[178]4[175]R$[178]"SW"[167]L%(N)[178]16:[137]8
  61. 820 [139]N[178]30[175]L[178]6[175]R$[178]"IG"[167]L%(30)[178]31:[137]8
  62. 830 [139]N[178]32[175]R$[178]"JE"[175]L%(32)[178]H[167][153]"WRONG SIZE AXLE.":[137]7
  63. 899 [137]6
  64. 1000 [139]L[178]4[167][139]N[178]5[176]N[178]6[167]L[178]N:[137]7
  65. 1005 [139]N[178]8[167][153]"TOO HIGH!":[137]7
  66. 1010 [139]L[178]7[167]N[178]0
  67. 1015 [139]N[179]24[167]1099
  68. 1020 [139]L[177]4[175]N[178]28[167]L[178]4:[137]7
  69. 1025 [145]L[137]1030,1040,1050,1060:[137]1099
  70. 1030 [139]N[178]24[167]M[178]M[171]1:[137]7
  71. 1032 [139]N[171]25[167]1099
  72. 1034 M[178]M[170]1:[139]M[177]200[167]L[178]2
  73. 1035 [137]7
  74. 1040 [139]N[178]25[167]L[178]3:[137]7
  75. 1042 [139]N[178]24[167]L[178]1:M[178]200:[137]7
  76. 1044 [139]N[178]26[167]L[178]4:[137]7
  77. 1046 [137]1099
  78. 1050 [139]N[178]24[167]L[178]2:[137]7
  79. 1052 [137]1099
  80. 1060 [139]N[178]27[167]L[178]2:[137]7
  81. 1099 [153]"I CAN'T GO THERE.":[137]7
  82. 1100 J[178]1:[153]"I HAVE:":[129]Q[178]1[164]32:[139]L%(Q)[178]H[167][153]"   "D$(Q):J[178].
  83. 1110 [130]:[139]J[167][153]"NOTHING
  84. 1120 GOTO9
  85. 1200 IFN-19ORL-7THEN3
  86. 1205 D=1:IFF=0THEN8
  87. 1210 PRINT"THE ROOM FLOODED, AND I SWAM OUT THROUGHTHE SKYLIGHT.":L=2:GOTO7
  88. 1220 GOTO8
  89. 1300 IFL=7ANDN=18THENF=1:ONDGOTO1210:GOTO8
  90. 1310 IFN-16ORL-4THEN6
  91. 1315 IFL%(13)-16THEN3
  92. 1320 D$(5)="JEEP ON LIFT-6' UP":U=1:GOTO7
  93. 8900 PRINT"ALL RIGHTS RESERVED."
  94. 9000 PRINT"TERRORISTS HAVE LEFT YOU PRISONER AT
  95. 9010 [153]"THEIR HIDEOUT.  THEY HAVE PLANTED A BOMB";
  96. 9020 [153]"THAT IS SET TO GO OFF AT 4:00 O'CLOCK.
  97. 9060 PRINT"YOU MUST GET BACK TO TOWN AND WARN THE  BOMB SQUAD IN TIME!
  98. 9999 [134]D$(32),L%(32):L[178]7:H[178]99
  99. 10010 B$[178]" ROYAHOGRJECASESKGAAQAIPUCOWAFISWBRFADRLELITIBRWEEANOSOOUMAKEIGAX
  100. 10015 FORQ=1TO32:READD$(Q):NEXT:DATAROAD,YARD,HOUSE,GARAGE,JEEP ON LIFT,CAR,SEALED ROOM
  101. 10020 DATASKYLIGHT,GAS,AQUARIUM,AIR HOSE,PUMP,CORD,WATER,FISH,SWITCH,BROKEN WIRE
  102. 10025 DATAFAUCET,DRAIN,LEVER,LIFT,TIMEPIECE,BROKEN AXLE,,,,,,MAT,KEY,IGNITION,AXLE
  103. 10080 FORQ=5TO32:READL%(Q):NEXT:DATA-4,-4,0,-7,0,3,10,10,12,10,10,-21,-16,-7,-7,-19,0
  104. 10090 DATA99,-5,0,0,0,0,0,6,0,-6,0:GOTO7
  105.